home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / ROT13Decrypt.pint < prev    next >
Text File  |  1997-03-04  |  1KB  |  45 lines
  1. /* ------------------------------------------------------------------------
  2.   :Program.       ROT13Decrypt.pint
  3.   :Contents.      decrypts ROT13 message and shows it in PINT's window
  4.   :Author.        Martin Koyro [mk]
  5.   :Address.       Snail Mail:              EMail:
  6.   :Address.       Salzmannstr. 12          Martin Koyro @ MS3
  7.   :Address.       48147 Münster            mk@bones.westfalen.de
  8.   :History.       v1.0 [mk] 23-Mar-95
  9.   :Copyright.
  10.   :Language.      ARexx
  11.   :Translator.    RexxMast
  12.   :Usage.         ROT13Decrypt.pint
  13.  
  14.   Updated for PINT (22.2.97):
  15.    Magnus Heino (nd95mho@Student.HGS.SE)
  16. ------------------------------------------------------------------------ */
  17.  
  18. /* Exit if Message Window is not active. */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. STATUS
  23. say RESULT
  24. IF RESULT~="MESSAGE" THEN EXIT 5
  25.  
  26.  
  27. /* We get PINT's message number, ... */
  28.  
  29. GETMSGNUM
  30. MsgNum=RESULT
  31.  
  32. /* ... save the message, ... */
  33.  
  34. 'SAVEMSGBODY' MsgNum 'TO T:rot13.tmp'
  35.  
  36. /* ... call rot13, ... */
  37.  
  38. EXEC 'rot13 T:rot13.tmp >NIL:'
  39.  
  40. /* ... and show the decrypted message. */
  41.  
  42. 'REPLACEMSGBODY WITH T:rot13.tmp'
  43.  
  44. EXEC 'C:Delete T:rot13.tmp QUIET'
  45.